(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     38186,        823]
NotebookOptionsPosition[     37704,        806]
NotebookOutlinePosition[     38098,        822]
CellTagsIndexPosition[     38055,        819]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"v", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"fermi", " ", "velocity", " ", "of", " ", "monolayer"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]1", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"interlayer", " ", "hopping", " ", 
     SubscriptBox["\[Gamma]", "1"]}], "=", 
    RowBox[{"0.435", " ", "eV"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "10", " ", "by", " ", "10", " ", "Hamiltonian", " ", "of", " ", 
    "pentalayer", " ", "graphene"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"band5", "[", 
    RowBox[{
    "u_", ",", "\[Gamma]2_", ",", "v3_", ",", "v4_", ",", "kx_", ",", "ky_"}],
     "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "hh", ",", "eig", ",", "skw", ",", "skwa", ",", "skw2", ",", "skw3", 
       ",", "skwa3", ",", "del"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"del", "=", 
       RowBox[{
        RowBox[{"-", "0.000147"}], "/", "0.435"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"paramter", " ", "\[Delta]"}], "=", 
        RowBox[{"-", "0.000147"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"skw", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Join", "@@", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"v", "*", 
               RowBox[{"(", 
                RowBox[{"kx", "+", 
                 RowBox[{"I", "*", "ky"}]}], ")"}]}], ",", "\[Gamma]1"}], 
             "}"}], "}"}], "[", 
           RowBox[{"[", 
            RowBox[{"ConstantArray", "[", 
             RowBox[{"1", ",", "4"}], "]"}], "]"}], "]"}]}], ")"}], "~", 
        "Join", "~", 
        RowBox[{"{", 
         RowBox[{"v", "*", 
          RowBox[{"(", 
           RowBox[{"kx", "+", 
            RowBox[{"I", "*", "ky"}]}], ")"}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"skwa", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Join", "@@", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"v", "*", 
               RowBox[{"(", 
                RowBox[{"kx", "-", 
                 RowBox[{"I", "*", "ky"}]}], ")"}]}], ",", "\[Gamma]1"}], 
             "}"}], "}"}], "[", 
           RowBox[{"[", 
            RowBox[{"ConstantArray", "[", 
             RowBox[{"1", ",", "4"}], "]"}], "]"}], "]"}]}], ")"}], "~", 
        "Join", "~", 
        RowBox[{"{", 
         RowBox[{"v", "*", 
          RowBox[{"(", 
           RowBox[{"kx", "-", 
            RowBox[{"I", "*", "ky"}]}], ")"}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"skw2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Join", "@@", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"\[Gamma]2", "/", "2"}], ",", "0"}], "}"}], "}"}], "[", 
           
           RowBox[{"[", 
            RowBox[{"ConstantArray", "[", 
             RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}]}], ")"}], "~", 
        "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\[Gamma]2", "/", "2"}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"skw3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Join", "@@", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"v3", "*", 
               RowBox[{"(", 
                RowBox[{"kx", "+", 
                 RowBox[{"I", "*", "ky"}]}], ")"}]}], ",", "0"}], "}"}], 
            "}"}], "[", 
           RowBox[{"[", 
            RowBox[{"ConstantArray", "[", 
             RowBox[{"1", ",", "3"}], "]"}], "]"}], "]"}]}], ")"}], "~", 
        "Join", "~", 
        RowBox[{"{", 
         RowBox[{"v3", "*", 
          RowBox[{"(", 
           RowBox[{"kx", "+", 
            RowBox[{"I", "*", "ky"}]}], ")"}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"skwa3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Join", "@@", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"v3", "*", 
               RowBox[{"(", 
                RowBox[{"kx", "-", 
                 RowBox[{"I", "*", "ky"}]}], ")"}]}], ",", "0"}], "}"}], 
            "}"}], "[", 
           RowBox[{"[", 
            RowBox[{"ConstantArray", "[", 
             RowBox[{"1", ",", "3"}], "]"}], "]"}], "]"}]}], ")"}], "~", 
        "Join", "~", 
        RowBox[{"{", 
         RowBox[{"v3", "*", 
          RowBox[{"(", 
           RowBox[{"kx", "-", 
            RowBox[{"I", "*", "ky"}]}], ")"}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"hh", "=", 
       RowBox[{
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"skwa", ",", "1"}], "]"}], "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"skw", ",", 
          RowBox[{"-", "1"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"hh", "=", 
       RowBox[{"hh", "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"skw3", ",", "3"}], "]"}], "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"skwa3", ",", 
          RowBox[{"-", "3"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"hh", "=", 
       RowBox[{"hh", "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"skw2", ",", "5"}], "]"}], "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"skw2", ",", 
          RowBox[{"-", "5"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"hh", "=", 
       RowBox[{"hh", "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{
          RowBox[{"v4", "*", 
           RowBox[{"(", 
            RowBox[{"kx", "-", 
             RowBox[{"I", "*", "ky"}]}], ")"}], "*", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{"1", ",", "8"}], "]"}]}], ",", "2"}], "]"}], "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{
          RowBox[{"v4", "*", 
           RowBox[{"(", 
            RowBox[{"kx", "+", 
             RowBox[{"I", "*", "ky"}]}], ")"}], "*", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{"1", ",", "8"}], "]"}]}], ",", 
          RowBox[{"-", "2"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"hh", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"hh", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", "del"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"hh", "[", 
        RowBox[{"[", 
         RowBox[{"10", ",", "10"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"hh", "[", 
         RowBox[{"[", 
          RowBox[{"10", ",", "10"}], "]"}], "]"}], "+", "del"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"hh", "=", 
       RowBox[{"hh", "+", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"u", "/", "2"}], ",", 
           RowBox[{"u", "/", "2"}], ",", 
           RowBox[{"u", "/", "4"}], ",", 
           RowBox[{"u", "/", "4"}], ",", "0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "u"}], "/", "4"}], ",", 
           RowBox[{
            RowBox[{"-", "u"}], "/", "4"}], ",", 
           RowBox[{
            RowBox[{"-", "u"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"-", "u"}], "/", "2"}]}], "}"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"eig", "=", 
       RowBox[{"Sort", "[", 
        RowBox[{
         RowBox[{"Eigenvalues", "[", "hh", "]"}], ",", 
         RowBox[{
          RowBox[{"#1", "<=", "#2"}], "&"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "eig"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Band", " ", "structure"}], "*)"}]}], "\n", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"kx", "/", "44.5"}], "*", "4", 
          RowBox[{"\[Pi]", "/", 
           SqrtBox["3"]}]}], ",", 
         RowBox[{"435", "*", 
          RowBox[{
           RowBox[{"band5", "[", 
            RowBox[{"0.0053", ",", 
             RowBox[{
              RowBox[{"-", "0.0185"}], "/", "0.435"}], ",", 
             RowBox[{
              RowBox[{"-", "0.322"}], "/", "3.16"}], ",", 
             RowBox[{
              RowBox[{"-", "0.0675"}], "/", "3.16"}], ",", "kx", ",", "0"}], 
            "]"}], "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"kx", ",", 
         RowBox[{"-", ".4"}], ",", ".4", ",", ".001"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "5", ",", "6"}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<k [1/\!\(\*SubscriptBox[\(a\), \(0\)]\)]\>\"", ",", 
      "\"\<E [meV]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "3"}], "}"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".2"}], ",", 
          RowBox[{"-", ".05"}], ",", "0", ",", ".05", ",", ".2"}], "}"}], ",",
         "None"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"FrameTicksStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "22"}], ",", 
      RowBox[{"GrayLevel", "[", "0", "]"}]}], "]"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "22"}], ",", "Bold", ",", 
      RowBox[{"GrayLevel", "[", "0", "]"}]}], "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Electric", " ", "field", " ", "u"}], "=", "0.0053"}], ";", 
     RowBox[{
      RowBox[{
      "Remote", " ", "hoppings", " ", "in", " ", "units", " ", "of", " ", 
       "eV", " ", 
       SubscriptBox["\[Gamma]", "2"]}], "=", 
      RowBox[{"-", "0.0185"}]}]}], ",", " ", 
    RowBox[{
     SubscriptBox["\[Gamma]", "3"], "=", 
     RowBox[{"-", "0.322"}]}], ",", " ", 
    RowBox[{
     SubscriptBox["\[Gamma]", "4"], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"0.0675", ".", " ", "Divide"}]}], " ", "those", " ", 
       "paramters", " ", "by", " ", 
       SubscriptBox["\[Gamma]", "1"]}], "=", "0.435"}]}], ",", " ", 
    RowBox[{
    "which", " ", "is", " ", "set", " ", "to", " ", "1", " ", "as", " ", 
     "the", " ", "energy", " ", "scale"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.919803530799274*^9, 3.9198035496068974`*^9}, {
  3.919803751197249*^9, 3.919804025391336*^9}, {3.919804058327615*^9, 
  3.919804258495813*^9}},ExpressionUUID->"97f15a13-0481-47a1-b7a9-\
79a350b2455a"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
     LineBox[CompressedData["
1:eJxFm3c8lf/7xyvtJPXRIA3tLSUV6aJFu5SotFRKi5AVkWzZ2XvvGVHJRclW
kr2dczi2s0jTz/fc9+3XPz3O43Dc531f1/V6Xdf1vCU0dVRuT5k0aZKEwKRJ
//t/18Gnxpy0VFSnSQqIbOaiCu/XmoMxqZgmev/yoREOPooy/eYZmIr9RVdh
00cOOl34Zc5wT8XZQydOF7hwMHaG6aZddqmYbJe/Zb4GBwuyf9bamKUi3d/L
dN4mDrZrm7yofZyKp05xmj+MsvGf2E/J9XdScZh37qdYMRvFyo2bjTRS8a+g
s+FaXzbKmI/aF59NxblQ8qfpLhvPbzPeJaqUijZn3XbJy7JRt+1Hh/a+VKxb
XFKmJMhGZzcjl3dSqZh0Oef+r1YWxin+kJ2zPhU13y7+dC6dhYUcQ+Zl8VSc
+pRlqWLLQnrEiGfi/PHrv1eoOnyJhWPnDRX+Tk/FQD9brux2Fu4V7G8IGE3B
z5tc5q6azkK9R3075OkpWDvnUprK2yGMr+x1aq1IwQsSZxeF3BlCxo5ehkV2
Cva+NXu7bvEQLvPqkZeISEFxz5NzmUWDeOFHt/dH5xSsOCRp12IyiK4Xu4du
GqeglY5zyIytg1j6nqk87WYKWtTVf9PsGECB5cyw6JMpuPrey8B+7wHcZ9n1
S2lPCn5V3vE8/OQAGtI6z/WsSkGhuLtTraYNYMqhzkTHuSnj596VZJ/bj93R
jGlbRpNxvfbzmRnG/Sgxi3G1gpaM4hu2h0+W7keN+/SsRxXJKOgxX1CH1Yee
FTRh4exklJiu2/gzqQ/LJWnaaeHJ+FOqMDLkQR/O8Oj4qOKcjO7On6Zd3dKH
Crz2pTyjZNTNOROwY6AXTS60G3hpJqNPt+f0pSm9+Dq7rULmZDLunzrcJ6LX
i4Nibevqdydj9C8J7jKZXlxv3mphsioZ8yoXFO383YPX21rqxeYmo3TG3EXn
83vQT7FFKudHEv4binc3s+/B7xHNjldoSVjWVD8Yf6YHBac30/+VJ+GNuLbO
ZtEePHy3aV9oVhI6bby9Q5jRjZaljV6K4UloZarreSClG7O2NA7SXiZhuf/D
ssdPu5Hl0qBkbZSEdsPbQwOUu3Ejuz50rWYS/q741fhhUTfeOlf/s/BEEi4K
NVWu7WRiUGadyt3dSXjselU2LZOJtYvrEmatSsLsDL+xdlsmCpvWTk0QTMIN
Mzu4X9SZeLS55sqJH4l4x1daN34zE63217wZ6EhEUY0QlcdjXfg+tHqea3ki
TqMnmUlUd+HIlOq727MSsWz+4+/ZcV249fb3/G9hibj6qyXssuzCu0VVYvov
E/GP+7/EV2pdGLaxSl/EKBFb23zm1Eh2YaPTt/LMG4k4M9H+FG9mF/43WLlW
7UQiugUEPWDROvHkmcpnozKJ+Exe5nrRh060Tf9a5yeRiD8XKq038utEFPm6
XU4wEXeHXf7090knjhp+cWgeScBQSd+9F891olRDBc28IwHPxL/3sJPqxAdy
FXIryhMwQVGiyVa4E6OCyl/lvUlA/5H8VaosBraOlQ3cCEtA7bky5qxKBi7W
LDsi8DIBA2+9mayWzsAzBaUhkYbjr+OXldm+YqDjutLRwzcS0PBJzw9zIwZ+
si85yzyegKoH5eJlLzPwT29xvL1MAv440zDjPTBw98ligU0SCeh2SVL27xoG
Pkop0iibk4CPZE8/GpvNwLj5RZkPRuLxyXV2NbLpSNMvFBLqiMe/O5+E72ug
49Laz3dSyuLx7MkOIYN8Oqru+Zx35k08bnSgq96Kp6OLf4EoJzQerWd+ezPn
FR2L/nzS83SKR/bvKIO7z+g46dqnMmnDeNyiNq3WWJuOe/M/rqm9Ho9jF/es
lVOlo8Hqj+ZGx+Nxyc+tqUmKdEyyya9dIhOPzitMi79so2MXM0/y3cp4xMLz
nwLF6bjyWJ795TnxqMv2/blwDh0vJmLHn+E4HNL7VLTnFw09hFA2uD0Og3zZ
zgK9NCzTzfWEsjiMiG1LMWik4fTvH/rbM+MwTYb5yrGMhrDrw2Gr0DjsVfob
c/ADDY19coJXO8Xh65upasEpNEz/+f5HwZM4XHZp3SK/cBr2Xn5/Rut6HNr/
FL24w5uGa3Lfxc04HofLHer97jrS8MrKd1PidsXhw+WgKmtBQ2+rt5ePrYzD
gbysOdEGNKxkZGf0zY7D4tsyivH3aDhLKXuu83As2r3eZX74Bg0PxmVpbWuP
xUMRr48ZqtPQfE4Wfi2NxXXMrXvkztDwzcM3Sx5nxuLqTcF1Hso0HPqa+XhB
6Pj7iwxznyrScMOOzNLXjrGovyPAhidLwxuvMlarPonFnbaaJb+laeNx99ps
5Fos+i94udFNkobV6q9rfI7F4jeR/UdTN9FQ6H36tr27YlFCeNLXS+toeGRZ
ul3jilhck5F5y2UVDS0t0tqfzo7FZBO/rKMraPi2I3XvsuEYnCG229hJnIbc
g6keuW0xqFx++5KKGA23RKf0XSuNQf8TBxYGLaHh7ZkphyZnxqBW0oab9xbT
MPheclB4SAwqcZImv11Ew7rypJGDjjGor++XZjf+er5k0ulOgxg8L9QqUzP+
+ph7YqzttRjsWOSpHjr++9bchMkbjsXgnIUD7czxz89VTbhUIh2DqidlguLH
//5IVvzreytiUE+w6Apz/Pq2i8ULCs6OQZ2cv8OB49evbRZ3O4kXjSdyZfaV
jn+/8NbY3FNt0Xh+fsGsR+Pfv1khdjGrJBpdshiyduPnszAiRtc9Ixo3DbxP
Fhk/v1PTYkp2hESj1FJlpYXj52t3J3pVtUM0Cvpf7LHbS8P8kqinTwyiMWmX
g9l9oOGvzVHVi65FY+zTbX25h2ko7RK5NftoNP77orrq+QkaPmRF2F6Ujsbv
R97MTztHw2iViLZfy6Nx0amYhJOXadiWEb4ncFY0Hl6wqFP1Jg2XLA53l+dF
4a5s08zi+zRUMQnrbW2NwgtqFYuixuPtZVPoQcuSKDTKM53Wa07Dz/KhgRIZ
Ufhj3kVLbzsajoWEDH8Mjhqvx4H2ce403D0l5NQthyhcsKtEYlUgDR/fCo6Z
ZhCFc9sTzo5F0zC+MGhSzNUoDKlQXqmQTkP6hqCLykejMKz0mw99PH+WOQWm
9+yMwklT/Aq6S2ioOhAwx2l5FOZtnpp5qpaGrqcDbm2ZFYXPrSxMROg0LE7z
/1DBjcQbbrpr9rJoOEXEf5FOayR2lG0off+XhvsM/XSESyLx7Jx6y4DxfH9S
71uc9joSc0qfXa8TpWOyrK/EueBITFBut3q0gY7MQB9Tnn0kmpobCFzfTUeJ
Me/vXvqRGNN7cSz+CB0v3fDesvtqJCofUfI6dYGOrz552dQrR2LqmFnnUS06
Vqz1ajXZGYlSiW/mBxrScYb9q91Ll0dihJK4/CE7Oir0errlzIzE7bd3vlT0
paPJCc+eK9wIlNtbucYzjo7pyR4HxloiUNB9+rY97+nYJ+wREFocgU/TxCol
K+i4Vt+dp/g6Ag+s0JM2aaPj1Rq3k/SgCFRQs7b5j0NHn91u0db2EZhjUDb4
dyoDv/m5jq3Vj8A5pRmBu5cwcPYfF/WiKxF4R9c9Bzcz8NBVl7S7yhG4sdTW
zGu83pvnOc+evTMCy6ZazMk+x8A3q5xvJiyLwIOvRP3W3WUgy/plzomZ49eT
FKDabsbADUynhYOccEwtaH/McGeg5lGnR64t4Vg6//iKHTEMDEhwLNpeHI7D
ohmuxTkMrJ3ruLIqPRx/HrkyHF3FwHm6Dib6QeE4z6ndqrybgcpV9lUi9uHo
uVji/p4xBj6Xtt/8Ri8c163f19GzsBPfedtZq10JR+lWkyXtWzqRN2rbMqoU
jj7K+w+JHerErZdtZfx3hOM2vV8+Ppc78c4HG1e5ZeEoFL1MSU2/E0NX2HQ3
zwhHbsl0G3WnTmx8bq34jBOGW7uHrf0jOnEB44X/ipYwrOj4ayKe04knjrzg
5hWF4fxTI94t1Z1oE2t1QjM9DAtcHgq1DHRi7myrKIGgMIwQCVggNqMLRx88
/xdpF4br2s/WeK7swu1fLdWO6IXhJ1mu3VHZLrwnZZnK1AjD4JQbl2XPd2Gk
p8UsB6UwVDrCs7j9qAtbhp9pbtoRhoKT7q0tte/CxerP3peJh+GqyBbTOxFd
eOaducjDGWGYUfo2eV9uFzqImz8U4oSi16GkQeWGLvz4zKwwpTkUpQpD7jjx
uvB3+9MVZ4tCkceOPiwgzESi/wjFNem/X6eM+yWi3whF8cGhZlclJtlfhGJE
CKMn/CaT7CdC0UZBQaDbgkn2D6HoHnr7zNVAJtkvhOI10YQfU98yyf4gFCUk
VZY31TDJfiAUn7hbdLdxmKT/D8W9bjtNFgh3owHf74dg+sgBzuOt3aS/D8FD
amcM/h7rRnW+nw9BkeLPyzPudpP+PQQXLPg6z8u2G+X5fj0E96qcvxUS2Y1p
fH8egtMWDO+u+tiNq/l+PBhPVgtEbenoRm++/w5GO3GrgqSxbtJvB+OFPvHk
88t70JTvr4NR981G45XyPaSfDkaV5ojdwhqUfw7GKNdNk1Y/pfxyELoojtHV
/Cl/HITbrKfykt72kH44COc8+ABrGnpI/xuEGx+crHk72kP63SDsSDTOf7ik
l/S3QehLi5wHe3pJPxuIrn6NJVvUe0n/GohCU4pGdxn3kn41ELV25EZc9O0l
/WkgXur8UOmd3Uv60UDUT9G17q/vJf1nIIYlSH28+LOX9JsByAwSftki2kf6
ywB0c6ylGcr2kX4yALU+zS5cc7mP9I8BePDG6M6up32kXxz/eamMje8C+0h/
GIDc/1ZHhHzoI/2gPx7KnRTg1dpH+j9/DBnqmh0w1oclfL/nj8zZqn3JK/tR
ju/v/PH4wuydlYr9mMz3c/4Yv1S/8a9mP+nf/PHiCLNaxrqf9Gt+WP3QcrFp
VD/pz/xQ5F2WV2FhP+nH/ND26poDS7v7Sf/lh8yLVkJGswZIv+WHDokf+uo3
DZD+avz1tr8lcGKA9FO+eDQ7yTf+4QDpn3xR28P5yBLXAdIv+eJ0qex8u9QB
0h/5osLu9B8/vg2QfsgXy98+qbnDHSD9jy8WfXymVCsySPodH9RcXL/3gMwg
6W98UFhqg2+82iDpZ3xQRy/3pNB4P0v4Fx/84hp6+IH/IOlXfDBsve+9T+8H
SX/ig28dFWIWtAySfsQbbVNEutT/DZL+wxtHTprP91oxRPoNb1wh0fZfocIQ
6S+88e+xuLreG0Okn/DGf/U3laa8GCL9gzfW38o9OSdyiPQLXpj5Lbhm6uch
0h944bdl20sHOodIP+CFYtHGTpoCLFL/vZAmSfte8B+L1Hsv/JL+THrZGhap
717YXZi9+r40i9TzV3hl/cElyYdYpH6/woXKKx06z7NIvX6FjUNxA8K3WaQ+
v8ItVb4fJJ+wSD1+hY+3CD5WtGEh8PX3FWbdcLc87MUi9dYTxb0235aLYuEa
vr564oqDl31XZbLQm6+nnuhXt/bVrwIWqZ+e2LZ/2feP1SxSLz3xgP6dSlMG
C4f4+uiJngKFM1bxWHiDr4ceKO8VNJwlwMZqvv554CGNv4v2/cfGo3y980Ce
c3RP0io2vufrmweeKfmvX3AHGyX5euaBGoaWQeqKbAzj65cHLhRnmbudYaMI
X6/cMTR+l1DGNTba8vXJHV1zfn39+IiNP/l65I684sLDOeZsfMDXH3ecfHI6
N+QlG1v5euOO/V3zNR4GsPEsX1/ccf/NXdPXxLOxgK8nbiiPb4w+ZbNRhq8f
bqgo1rL7eBEb4/h64YYqAT++vKth41K+PrjhaqVbhfMZbHTh64Ebzi7yjj3N
YeNk1f/Vfze8KLFissEkDjL59d4VLTRTNZ4JcbCMX99dUVxm/dFH4hyynrvi
dx031YObOGT9dsFWG8kFf3dz0Ixfr13wx6i1cMBhDt7g12cXLE4+Txc/x0El
fj12xm17E5dbXefgZn79dcbrQj1qpQ85ZL11xqNpuWuHTTlkfX2JFwr3rZxi
z8Emfj19ib2iNe2sVxzM59fPl+jpdWNKfhgHo/n10gm9Vm2S0EvmkPXRCa+b
9zYKvOfgY349dMKQkbovT4o4ZP1zxBlrYoKKvnPIeueIohbuPaNtHLK+OaIM
99KFWf0csp454MdLag6jPzhk/XLA2B6djYUCXLJeOaCM/Ya2x/O4ZH2yx5NL
o87/FuOS9cgeGe+Td2mu45L1xx7Tm7Mlo6W4ZL2xw1NXu9iF+7hkfbHDvR5C
WwuUuGQ9sUPTzR89g1S4ZP2wxQ3LzzSqXOGS9cIWux6UvqHf4ZL1wRbvMGZ3
nNbjkvXABjd8zlrgY8Yl898GDS4pz3hryyXz3QaXWc4yy3Tjkvltjf9EVm1/
6c8l89kav13yYeyL5JL5a43rDp3VKErikvn6Ai8mL9fYnMUl8/MFFtu/jb+b
xyXz8QVO6ikVtijhkvlnheazh9QfVXFJP2mFBbJvT8s0cTGYn19WeCgt61Mt
nYvW/Hx6jp0qRjan+7mozc+f5xhxze5OKI+Lp/n58hynCprvL/nDRWl+flji
uqk/2kum8lCUnw+WWFMfuj5ckIcC/Pi3xBZVmYGzIjys4se7Bfrl2wo1LOVh
AD++n6HOVON7u1fzUIsfz88wNnsW7cEmHkrx49cclSTU1U2kePiHH69m43kY
kq6xh4eF/Pg0wyUW++oXAQ/d+fH4FI+7vE6POcxDDX78mWJATvLWeSd4uJYf
b6boYT1l90kVHrL48WWCV2JTcm+o8/AdP56Mcfq9zjcnrvLQhh8/xigZKSAi
dIuHZ/jxYoTXCwLLo7R5uJQfH4bIjTRq+E+Hh538eDDEv4fdd6kb8DCFf/+f
4NVby1v1THhoyr/fBjgy8LLq5jMeHuLfXwM0PWsjsvkFD+fx76c+1sX1xRTb
8bCRf//0cMmndo99L3kYyb9fenh+9GOLrRsPH/Hvz2Os697mGfOKh3v590MX
b0+dlBfsS52/Ls7qP6P/IJA670e4JuZprnAodb4P8WqCaKZTBHWeD9AlU+Bh
SzR1fveQpnf237R46ry00WNU/cW0JOp87iJrZvKS5hTqPLSwZ7VEi0M69f1v
42HNXLZQJvV9b6GlaLnJ/Szq+2li1JES/5C31Pe5gR/wvlnCe+r6r+PVDcHK
rh+o672Cn+LMNx9H6vouofx9tXNtedT1qOPj0ijW8Y/U31fFsTNzZdw/UX9P
Bc9rXVRPKaA+/wz+fm/sEv2Z+rxjaKdnMt+okPr9w/ho2Fpcooj6eQV8+rKp
P7KIen8XRoZ+zZ9STL1ei/Xpec2y468nkf86/i18fvL/34e8rj082YnXu8Ch
xMVcoHji86G/WU8rZuLzD0PwI8lf64omrg86mCM2VoUT1w8H9ZvV332e+H7w
/Uj5py8FE98fctxfiOZ9mjgfeDTHPtnl48T5wcHVKxpk8yfOF3y+HGIX4MT5
gz0v7MzW3In7A/1PrFQMcibuH5R9LT3n/27i/kKn2kB6SPbE/QeN+W1frd/w
cBoRHyAjKih4LIOHj4n4gRlxx0uH0njYTMQXWKV8f2Q4Hk9HiPiDor+br7Um
8jCNiE+wnSkxZcN4PC4j4hdWyr/BczE8tCPiG3R7Fk/WjOThT37/pQt33rzc
fi6Mh9uI/IDSDK2364N5eIvIH/D/w53R7s9DfyK/4EDrIwczHx5+JfIPTkcP
JPz15OFUIj+hmXu29eZ4/u0l8hdKwna7pYznpw6R35B4kC7VYc/DKCL/4Y/M
dumf1uPnRdQHUD76bOaoJQ+FifoBTF7wylYzHh4m6gu4SH8cTDAerxdE/YFF
LM3OG+P1JJWoT3BJYKfRJF0eMon6BZz26Yvt7/NQnKhvIPU9b/dPLR6eJeof
/G6WO3Fek4e2RH0El30yRX5XeJhD1E+o8ZRbWjpe/9hEfQWFLJd3ned4uI6o
v5C2/r/FA6d4eIWoz1C5Rya8/SgPPYj6DTnddeV5h3hYRNR30Lm/c4bLeD0m
+l9LuPuwKE9ZdkIfoGn+/rtsaR6lH/A89fx9e0kepS/QcOGTjNB4/Sf1B34L
r5F5sYZH6RNYjDV8Zy7nUfoFvfKjxvtEeZS+gVXIBufn//Eo/QMTJQ/DrLk8
Sh/BYmWeX+sMHqWfoC9nd/HHZB6lr3Bv8cCiKX8m9BeONs+VGhue0GeIcZwy
bWhoQr/Be0PRwLeeCX2HPeyVh2LpE/oPMU7WV/VaJvwBzFb547a9bsI/gF2i
0FZ65YS/AB+7yOeOpRP+A1z6hxrXFUz4E5iUr2KV/WHCv0BR5uFcyJrwNyBy
D6pyUif8D4iXBvyTjJ/wR3As5YWlX8SEfwLRkmr3n4ET/gouf5+lfcabS/kv
qFq1em+wK5fyZ/Db0VWKbs+l/Btwoxc+W2HFpfwd6Nl9OHLuKZeMP0ewrnyX
8syAi/cJfwgqSmoNYQ+5ZDw6wUhjS1uOFhdDCX8JZptsm75e45Lx+RL0Xa63
N6pzsY7wp6CUcOBfy1kuGa8vgeaWodBwjIuChL+FD49ak8sPcsn4dYbKJsPj
2eN+T5Hwx3DyQ5pI4C4uGc8uIF0mOdV4GxeNCH8N9KxBoRPruWR8u4DMZNm1
S1ZyMYHw5xCrHbijeQmXjHdXEJaoWuY7n4sdhL+HjMD3xcdnc8n4dwNcfVb4
xxQuviT6A3AU9in3+80h88ENKko8Knfyxv010V+A7BOF3oJxP0zkhxvk3nKg
negc9+NEfwKJCnLmZS0cMl/cQWxwzFihloPNRH8D6jsvuCZ84ZD54w5fxJwM
BMf9+AjRH8Hj/zLqNJFD5pM7PKiM00zO4uB8or+CeIbAu8EUDplfHrB02ULz
1bEc3EL0Z6Di3X34RCiHzLfx919C3F1fDh4h+jswZbjKGLtxqP4P+nUEjE3H
+wuyP4TwDiPOI0sO1T9CsanFWlVjDtVfQpyWptMWXQ7Vf4Jo0Uo/3h0O1Z9C
7v0nuYnXOFT/ClnSDbfPq3Go/hYui9rxek9xqP4X7GssS3WOcKj+GG7ufHWA
Js+h+meoHr6erriLQ/XX8E/t2j3nLRyq/4b365iZBas5VH8Ob+/ubuoS41D9
O2zxfraUO59D9fcQcZme3j2TQ/X/MJPmXF84xqbmA/DNPy335Qibmh9AuoOP
x94BNjVfgGuz48zK6Wxq/gAic5+GHmpkU/MJKChsEA+rZFPzC+j8Uj2no5BN
zTegNqHMSuADm5p/QHmBqceM12xqPgJW2TOV+mPZ1PwE9i4UiU0NZlPzFXj7
ID/73Cs2NX+BkE8lRtUObGo+A5KqDm1SFmxqfgOQINR1z4BNzXfAd/om82fa
bGr+A0oi5h73r7Kp+RCc63ecJ3WOTc2PIP9icUOFEpuaL0GBVmKVwj42NX+C
RVvy6+y3s6n5FAS1Z3yMXMOm5ldwbuN9bc8lbGq+BXsjhILPCbKp+Rf8SFgl
yRhjUfMxiLzhxTzIZVHzMzjR/M3lcReLmq+BXEhV9/0GFjV/g0oF6TdS5Sxq
PgftSsoZ+bksan4HrrAhSCyNRc33YPrkkvVyESxq/geTdwjNXOXFQjoxHwTu
z5bBClsW2S8HAKtf2lHemIX/iPkiFG2TtdHRZlHzRzCpOGeveYmFS4j5JDSp
yu1deJxF9uMBYB2xQM5WjoU7ifkmsPqMt2VsZpH9eyAozg5NC1rKwtPEfBRm
CWpeV5zDIvv9QFg4KTlWbngItYn5KmgurT168/sQNX+FzISeLyOpQ2hNzGeh
U973Ktd5iJrfgl58/tIL94YwmJjvQvPbyLXiR4bI+UMQxFkK+R6QGMIMYj4M
m/UdnQp/D5L1OAhSD3oujKoZxK/EfBkGXQqUm5IHyfocDFE35+7SshvEHmI+
DdLZdOaBa4NkvQ6G61+NHzySGcSpxHwbdCMHyzoFB8n6HQw9t13mRtMGcDkx
HwfHhZN2J2YNkPU8BBarvTgx7DSAssR8HZrMN559dm2ArO8h8HtUWOnQjgFU
JebzYCEeLnlo6gBZ70PA8H7FnKc1/ahDzPeBbXC8uTOqn5r/w+VzrWHPn/Tj
Z2I/AMn9r64cP9RP6kEoSAoKz1dY0I8qxH4BerRLcjXa+kh9CAXnfI17wQl9
2EbsJ8BY+PuSKUZ9pF6Mv17GqrRW7MOHxH4DVty1Clg9p4/Uj1CQDc580fS9
l9qPgFHeHZ+4gF5ST0JBePFzpqNmL9oR+xWoFD9tb7ahl9SXMFjhQnN/OtCD
C4n9DAh81F1pk9ZD6k0Y2D7NPu9t0IPhxH4HKu7cO58o00PqTxi46HkdK/jR
Te2HoHT74rtNWd2kHoWBm6MwY9Cwm9ovQQX76p/f0t2kPoXBgjNiI2NsJh4n
9lNg8mvx8tEkJqlXYWDfp1fScZeJdcR+C07ail54t4pJ6lc4iO+7sdmiqQtv
E/sxUD0b+m6rZxepZ+HQuOWLxaejXcgl9mvQYrhpyv6xif0bLNDvq/Z/3YmW
xH4O1HlcnzqtTlLvwkHlhPsoe0knChH7PSjLUkxnljBI/QsHs/AXrm9MJvaD
kK6efE9jA4PUw3BIda3eVldDp/aLoHotrX6NFZ3Uxwjo3h1qdHArndpPgted
0G1SdTRqfwmVtbd29VvQ8CCx34Q3UboNeutp1P4T/l5QtPhU0YGVxH4Ufh6z
i2jW6yD1NAIcVR425yzqoParoLuW1aj5tp3U1wiYFnbkQcWldmo/C4/vZY2M
DLdR+1twpWeuqd/ZhsbEfhdEzMOy9+m0kvobCfd9c0+ujm3B6cR+GEJiFhQ7
tjZT+2Po+7xeXW9BM3oS+2VI+TDJouFgE7V/hu3SCgvy9BpxJbGfhplBNgrr
Qhqo/TX8oE/xFiypp/bb8CT15GQDVh21/wZrK536KwvrqP04JJftbi3bXUvt
z2HQ6rtSnloNtV+HH7FJH+WfVFP7d5C0DTRVcvtO7eeh8dC1lR2xVdT+Hsr+
6bCE8Bu134f2fdve1VRVUvt/WD6z/MuT4q8UHwC/onVmOnRVUPwABDmXuXDG
yii+AGLjRGTyRUop/gB6t5ken7a2mOIToFvwfGzl9kKKX4B6ISiU2VNA8Q0g
DpLVJ+Q+UvwDrO6wLN8om0fxETDcv2JJhXYOxU9A5cL31XJq2RRfAYaTPaMa
9mVQ/AXE88o/MMRSKT4DIlemFQE9huI3YMq8G/HHpoVQfAdcsjbROqnykuI/
YEOEc9S621pA8iGwzm76hXeNnkDyI7Bs9l3nKotwIPkSkPtVurxfPAFI/gQs
Zy+61deRBiSfAj6q01c07H0DJL8CB3PvyxR7vQOSb4HrDVKPZYdzgeRfwO+P
8tyahHwg+Rh4e/5B46HWT0DyM/D9RkdN2PxCIPkaMFtnJBB0uBhI/gZq2oyE
6CalQPI5cGp942rx5HIg+R2YnWZc0dfxBUi+BwbXXLtj7FgJJP8Dp6tDn2tG
fAOSDwJT2kDIs/dVQPJDUCSsHfCq6juQfBF8PdqWot1dDSR/BGbuI4/z/tQA
ySdB3sjvIvV5dUDyS6By833n0Ip6IPkmWGRZdVxhWwOQ/BNs+8crnSzbCCQf
BY2nAp16DjQByU/Bq9vBYvHKzUDyVaAfuu4p91gLkPwVPNSx369/tBVIPgs0
ZDXCqw+2AclvQf/x6Evt4u1A8l2gq/VEUcerHboJ/gs2/tWK0J7TASkEHwa8
Va/OhT3rgCcEPwaWRTpPmYMdsI/gy8D2nyMKatBAgODP4N977p2OzzQoJfg0
WND822nXFjq4E/waaFuvUGxwocMFgm+DY3Hx5YEDdFhG8G9g9V903RllBjAI
Pg5sDc0jC4MZkEDwcyC39f3hShYD9Ai+DuLLV9co7O8Ekr8DozkP4/ttO2Hs
Kp/Pg7AL+W5xpZ1QSPB7oGa+79epWV3gTPB90L3XdfubA12gQvB/0K7z7/k7
wy4g+UDomzv53t6oLmgn+EFwGq3KWPClC2IIvhBm/XsQtIHdBSR/CHKo03lN
iAnSBJ8Its2pXSFrmUDyi3CqRD64SoYJHwm+EQ6IlacyFJngQPCPkHf/9d3P
R5hA8pHQwklO0jrMhIUEPwl6mwtGcuSZ0EzwlRAQUCiDkkyIIPhLsGNNL9Ba
yoR7BJ8JyZvK5VImMYHkNyHeQ0HTu60LfhB8JygVPx9bmt0FuQT/CYnOL94p
OnaBDcGHgpWRLmf2hS44QfCj4GC12cdsaReQfCn4pDlMDmrshHqCPwXJuvIy
fc9OCCH4VFBPqY+fdaQTtAh+FfIzHZXvchhA8q1wu9Zphb8vA7gE/woflWjq
8XsYQPKxsNHbJCGyig7PCX4WHnwtkvfSooMywddClUCcgz2PBvMI/hZE+s0P
OJnRgORz4fwkN/n4fx0QQPC74C6eocEx7QBNgu8FtePLnuqy24Hkf6FI57iG
lGY7DBF8MCw583PvC/82eEPwwzBjxuwTl2+3gjnBF4OYdpOiwNoWIPljMFhp
1OzR0ASzCD4ZAhcYy0q8aIQqgl8G+fc6pQUSDUDyzdBVVguemXVwleCfQdDx
mGPY/lpYS/DRMEOj6YvAh2roJ/hpWCMofbNi+3cg+WqodbpVKuz/DUj+Gmo8
5LWQ/RVIPhv2BusMevmXA8lvw63vNns+bysBku+G5v2K8feTPwPJf8MenZyZ
0aIfgeTD4aqO6N/lHTlA8uMg9lL0yAutTCD5ctAMejJbxS4BSP4cgtWeyg/T
fIDk06FxWEHvcpgFxa/Dpyytl2c3RlJ8O3w+1alRdyGd4t+h6SIrwSLvHcXH
Q4YdDfJj8yl+HqLvynt1TC2k+Hr48bPhjadBKcXfQ9rosfSyH18oPh/Glphd
hqJvFL8PMxbG25wVr6b4ftCUWj55ydNaiv+HJ9uPjLrQ66nnA+CapsH816pN
1PMD8L2Wrv38Wwv1fAEcNHtU/HRzO/X8AWweNs+fpd9BPZ8AYi3lVdpIo55f
gCd2W24ECDOo5xvg7v77k4PH/Sn5/AO06+03fJzfRT0fAb64P3mhRDf1/AQs
TR3Od7TpoZ6vgOYpf9mVg73U8xdwY51kVLdGP/V8BmBgt1bV1wHq+Q3Q77jY
6aI0RD3fAd5xPKN5miySv0qFNYZV7/JXsfH/ANbhmt4=
      "]]}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
     LineBox[CompressedData["
1:eJxFWnlcTO37nmZpDxEiS5ZIJUSR5b0fS5EsyYtQUUlkbZU2lJI27bRP+yYt
oiiespXkJVsktAmFzixNe/36zpkzv/6oz/nMNHPO89z3dV33dT1zrM+Y2tJp
NNq+sV//+2uPVjbcqM3ENOGPNGpC2VOJ55l4s5zKvzUjUmhyWtbZ8JJM/KKT
/y68QQrtYGU910nOxP9c4GQmFEqhK3aZc99dzcRZw2b+P69KoarnGR4uzpn4
o8ncpS42UmhAM+PdlEOZeHw5YbVhnRRaEZq+uMwoE5+zU2zcOVUKnSLS/Pev
yMQOhNu+RI4kyjRN+zYwKxPHv6+M1aiTRN9KUlclyGRiufb5Vr2Zkkh5amr4
On4G/n3t4mmGjyQyPZ/S+fVrBt6/fpvvDgtJFPyZvfHi8wzcGxln9XGVJHq6
jp0wpyQDO/hNrmMrSaLR5OSeR0kZ+H7soF8WwUIr6ck7jlzNwPGcGbt/17GQ
w5GkLJZzBjY2/dh7OoeFcp8l0rIsM/AtVWX9Jf4s1KaeuH+LUQbmmuxs0rJh
oZlBCcW/lmdgBSPXLDvEQnv+xMsFzcrA7DtSVt9mstC1nfFHtGQy8LXdw68i
B5mopijuwUteOt5eUFd++RMT0ZXippz5mo5ffLD5XVTKRGtdY89MeJ6OH4yq
aajEMJHLxxs1RbfTsanaz3WVzkx0a/WNObuT0rFh/B+CvZuJfiRcd+cHjF1H
tss/0GGiOaMxb6Od0vGHhNaDShOZ6IBVjNZKy3QcO80qO5PDQFGPo/0+bknH
drn6D5zqGeilWvTX88vT8ZTwVFuPIgaSCohaqTIrHR8bp3nqQTgDoc7IsArp
dFx1uzRZ35GBzm+L/GXBS8NHi72fd5syUPGtiA2jX9IwMYdZ+m05A3VNiIhn
16ThhWiKrsxkBlJzCuevv52Gp+c/n3BSQEeW78O2tyWm4dmpLlOlP9LR9ZVh
mZcD0vD9+YVTvtyjo/rYa6NqTmn404qtTZ3xdCQ7FGpWbZGGh/uM9ZZ509Em
y9CiY1vS8M+fBLfgMB15VYbIyi4fu+anNR/dSEd354bY5M1Mwx35gy/3LKAj
4nJwxTbpNLz25N2rnjJ0pP4jaPJfbipeeu5ua+NvCWRtFHT62pdUXLp4JOvs
awkUnxdYvbQmFU9dejN7XYkE+qAQqPqmOBWbXOu9vf6GBBp/9up5p8RU3Dik
GevpKYG2vAl4oxSQij1HMhb+PSyBLq0I0LzrmIptNV5pxxhIoPsxVy7vs0jF
nUemeztrSCB+n/+Xvs2peK467XvAeAm0+KC/XpxOKnZ8M6Dzlk9Ddg/8rq2Z
mYrp/T4rdzfSEHu2388mqVSc81zukXQlDTVeurzem5uChxxHU3gZNDSx3Tdu
9pcUnHe9PHNSMA1tM/TlVVanYMm6kORjjjTkl+2zzbo4BQfNLTzINaOhh7I+
GYzEFOz82CC3EGio7+SlkfQrY9eR+w6kLaChpa8u7jN0TMH6Ha9X1yrQkP2y
i4U/zFOwcXDfiq2do5AeeUHm6uYUvDKYFmZ3bxS+9Hhba+ikYNu3ZfN+B4zC
VDPv8hczUvCN5XXBDWajYHLfS+mUVAoutg2yW7RoFK7O8Do1jsvGEet+7Gzp
H4FH3p7PCprYuHHSiZaR2hEYbPaYvauajVfvWll6KWEEdDd6uHGL2Dhy4dCJ
46dH4HSGe31kAhvTz/Nj76ARyJZy19C9wsZnOpsbbSeNQPPx874fHNjYegGj
5nzHMEyvc2s6Z87GBrunDRD3huFfbTfdaZvZWObOfpkXIcMQEnYu9P4yNi4L
OB0iZT0Mz7iuPw7OYONORceZmXrDMPqvKxqWZOO0hs6dmXLD4Hy6S2ddWzIu
nVdzX6plCNp1OtsvlCXjrDxL3vO7Q2DW+zPmUUgyJjxsQ38HD0Ft+Y8tLJtk
fH4qb/YZmyFYd7FjYPOqZKzwxn3NrtVDULTp+81AhWScYVPrFKE4BPNk2i1f
tibhzfekDur8GoSYl60TJpQl4Zn0Ap+lVYMgFdHyyDQkCZ8jwjyCYwfBfW+z
c7R1En68pf69geMg/J3+bcHHlUnY/8Z3VXPjQTj87cvH6QpJ2GxtVNd/8wfh
bVpToEVrInaJ5j1OHBkAg2Of17JLE3FI8PGVNR8HoFSr8W9rcCL2h7w3228P
wCLOR7aadSJ+O1IxRzt0ABLvNJgeW5mIy725BceOD8AE9w/MPPlEHGfYLTW8
aQB8/nl/909LAtazzrrdqToAAvq7Y0tLE7DFtsNrlw33w7HqN9OdghPwOeVi
jdef+qExqL7ujlUCNm8IkKy+2w/bTV579+kl4IP6C/ZNjuoHrPRq6Rr5BBxz
Yl7afYd+WPbpZatXSzyu1HY6e3dnP2Qk1kVV3o3Hfxcd2SSt3Q9TrV8YMoLj
MetcWlqBfD8ELqjtM7CKx3pHYeLNrj4Y6qzJDdCLxzWeuZOGa/vgdEG1+Qu5
eFyQ+lAjNbcPWp2ejRvXEofXRFZ+igvsgz2rnlaa3I3Dk87bpHbY98HzoceO
kUFxWPNBHcvPuA/WVD2a/+FwHA6feOOyi1Yf3PKr+qCsF4cnZn9OKlXoA9Wt
lQEH5eJwb5TWu63dvRAxDq9Oao7F+06kpWnX94Lk2we/m+/EYjt6S5D17V5w
u16RNC8oFr+3mSTXEd0LnQfLTY4ejsWxfwaSytx6wUL1Pj1HNxYXRXc/+XSw
F163l5V0ycbiPvOO/i3QCxtzSo9qN9/Ak3+63mfN64W7p+4qO9y5gS30W3zG
S/WCus6d2tuBN3BO1KRXtl0CiBPc9hQcuoH/+BVOl34tgHHlxdr6ujewFWty
S0+JAC5eKGr2kB17/0PLRO04AfA2FkY8/HYdh7g61hZdEICtdMEmiTvXcWkI
vc3bVgANdfmCjYHXsWJCtFW0sQC2ht/M9j90HbctCqnkLxPAwz15B56vuI4D
fLTcE5QFsHR6rry87HV8LyZZOni0B1K/Zj/c8S0GzxyV6HjU0QOk/ojB82SP
BqP/eoDUGzH4cMtnF+bdHiD1RQyurHCbMS6pB0g9EYMfalkOmPv3AKkfYnD7
8aqrxOkeIPVCNFa9w91Us68HSH0QjSfXHMlsQz1A6oFonGhUor5BowdI/o/G
23YUGLZN6gGS76PxgRZzj2fDfCD5PRpvCWdu6PrBB5LPo3CSlN6UXW/4QPJ3
FH6d+Nqpt4IPJF9H4VmDsg1fsvhA8nMUflTgXsGI5APJx1H43/cqKce8+QBC
/o3CWjfN6PL2fCD5NhL76Sla/tnDh/lCfo3Ejz6k6shv4EOMkE8j8X9t3SN2
2nwg+TMSG/xjt4GmwgeSLyNx9Fc5r3dSfOgW8mMkVrX0XNLO54GVkA8jcI3b
QKN2Kw/eCfkvAisFOkqUvOKBkZDvIrDKkI+a0wMelAv5LQLLl/rWnsjjwRIh
n0XgWM8Q58RYHqQI+SsC4/WXsqUCeKAk5KtwfNtj/O8cVx74C/kpHHeZ46e+
tjzoF/JROI5XEFRE/cuDk0L+CcfRb4f3N23kwVch34TjV1oKCw4s58EuIb+E
40Wt2/MU5vHgiZBPwvBxZruzYCIP9IT8EYbPtvHHKTF4kCPkizA8nciXPMrj
goqQH8LwouvGnV1tXAgV8kEY1mWpGmW844LEnv/hfxge/hZ7O/wpF34I8f4a
fsrZWl54lwsvhPh+DWtV/uVKZHNFeH4NO051+Hs5livC71A8x5e/QT+IC55C
vA7FXmUf/Wd5ccFKiM9j138rd604w4XNQjwOwZfU4ta6W3FBU4i/IVjeOqWl
ezdXhLch2OjN8aYoQ64IX4Px7NbW58f0ufBZiKfB2HGT5ZYTWlyoEuJnMI78
Ht0bP5sLmUK8DMKa/xW5DUzkivAxCNcLtp/2l+SCgxAPg7Cr9EVPGOCI8C8Q
d8l92aL2lyPCu0CsLnPBfWUrR4RvgVg2Wva+yweOCM+u4p3bSoq+1XJE+HUV
5yBDBRfMEeHVVRy9Xc1dt4QjwqcAfN92b5ZqDkeERwGY98zXQC+JI8KfAFw5
gy7lGskR4c0V/Cn2ffK3AI4IX8au+XefOnpzRHhyBU/ar7x0iTNHhB/+OGGz
xg0le44IL/xxj1Vz2dzDHBE++ONV8wU79u/liPDAD3uG8pTLtnFE/e+Hf5Uv
a/hnI0fU735Y0e6b8R99jqi/L+NNZqw1j5dyRP18GTfVBNpXLuSI+vcydszX
T22fxRH1qy/+2v0ob8kUjqg/ffHhqEemKQocUT/64uCXj4/oszii/vPBRwY2
FfUOEUDqSR+8N7xcpolPQJKwv3ywde/19R2/Cbgs7KdL+NZ6I+0p3wk4Luyf
S7i6FWWd+ELATmG/XMJ/Nwj8Ot4TsELYHxfxR9SZ4f8fAdOE/XAR30jKbTeu
JoAhrP+L2GHf+zl6lQS8Edb7Baz7WQUM7hEQL6xvb7xB31D1fDEBR4X17I3j
NPTy6vMIWCasXy+cIttZvSODgCFhvXriJ0UXDhNJBDwT1qcnnqe/0uruDQLC
hfXogTekuJSxIwgwF9afOw63rt5bEEyAmrDe3PGJD63arf4EEML6Oo/3Rubq
6l8aWx9hPbnhh+wl1iUeBPgJ68cNjw+6nb/blQATYb2cw3dscidNdSBARVgf
rtgssiJ85AQB34X14IptrtcslLUjoEC4/y44Oaq9Qd+aAHfhfjvjkdpDmSEW
BGwS7q8zPt3xOJa1n4Dxwv10wu8XfLif8i8BjcL9c8SZtjeUrE0ISBfulyOO
4BqVGG4j4LRwfxywxZZjOTu3EKAv3I+zeNr1ApbXJmr9z+IoNZUv/yFqvU/j
Mr/vBgbrqPU9hQviAsya9an1PImrHR8sYetR62eP2/56/Ly8nFqv43jG6oGU
0KXU+hzDeeNuej1YTK3HUXzh6fpkRU3q+W1xxLIsrSB16nmP4LCN9B0aC6jn
s8bznIsWd8+jnscKO/YY9X2aQ93/YRyUFd3UOZu6Xwt84nWY3NxZ1P0dwO+i
7MouzKDuxww3L3FSZqpQ378HF/zSsymYRn2fKS6vMX9zSZn6fBM8ZbQoxWMq
9Xlbsez4eeMTp1D/b4ClsksPdEym3o/w0VWhz/ZNpl7XxZt0GmI4StS1GpZl
vlYsGbumiX72PHxwIfn/X4fMsz80SsTXuvBYNewQV0n8+fDVjzhxQPz5BmB0
YCn792Tx/YGzxaEdOVPE9w/3B07Vhk0VPx+MRKnZpymLnx/CXFT9WqaJ1wck
LaqcjVXE6wfqJRpRLTPE6wua5roofZZ4/SFdxa4hUlW8P/A9++e9wrni/YNx
OzyMBueL9xcaFp7+5bRQvP8AQxEj0zUIYJH1AatydLoJLQIcyPqBmRoS8wRL
CGgi6wtoOooMzbF6MyTrDyTNq/uvjdVjEVmfMPi3zlFtNQEzyfqF1br0z11j
9XyFrG+wtzvLbltPQL9w/joLKYvW6CgYEqBN9gfcig+nHd9KwBGyf2DvYJJn
7w4C4sj+gncf3ZXv7SbgFdl/UPJFefMtMwKYZH+C2cJVng1j/atP9i+81DHV
0rUh4AzZ38CxuFpXfYyADLL/oWwo5s2102PrReIDaNLvlYQ4EzCBxA8YWp/8
q8qdAAMSX6Bts9lPrTE8cifxB9xq1qm/ukJAIYlPYHmzWTUnlIAfJH6BfSnf
qDyagBkkvsHwyzUqkokE7CLxDzIbz8oHphPgT+IjKOzRid58k4AKEj/h+Znf
WlBCAIfEV7jZ9WirQwUBC0j8hVUx7rZfnxBgQeIzyLta8/xfEhBB4jcoZK21
P/GBgGoS3yGzcwEEfyNE8+9FCCd8On79FPMDVB74+vYyV8wfsPJC43mLITG/
gD0xaauzJIfiH2C+kLnzfAKH4if4Xs/UsFThUPwFcw6MTNFZwKH4DdaOu/LT
YJmY/+B9UL5M3FoxP8Kh1vY27S1i/oR1gs6vzH/F/ApL628dnnFYzL/g1KL3
0uWkmJ/hzrIr/ornxfwNdXFXfnf7ifkdaIO/zBUjxfwPdk4TlruyxfoAfpfw
qmfdEusHkLaRcZSrEOsLWBKm4be2Vqw/4KuFu2nxR7E+gTWPtqmf+iHWL1Dt
rWB6SiDWN7DIaKHybRaX0j+gtbwL/zOZS+kjqN/pFjRBjUvpJ/BKT7unrsul
9BXoHm32u2LApfQXVASrqy/ey6X0GbhVfX83zY5L6TfovtlYsd2NS+k7yLol
r/D8KldUf4FQO5r/NyieCydIfQgWW6WvxORzRfUYBFGldr0/MRfYpL4EOW9J
C983XFF9BoMNt++17XcuNJD6FBzmTD8W1scV1WswZAv6dBjyPJAn9S109Dxd
93A2T1S/IeAUuj6sakzvryf1MQww8xYrbOGJ6jkU+mmFSinmPDhH6muIKzcH
LweeqL5Dgdcgn5biz4M8Up+Db6v50nEJPFG9X4PmizPePiriQQup76HLZL0j
ruaJ6j8M5no1djO+8iCYnA+Az2AtChubl8h+CIORkuYeGzk+ZJLzBWgTfosu
zOWL+iMMzCYOhbfo86GKnE9APn9pX+AuvqhfwmHxye7ZHsf50ETON/DxaWN1
0SW+qH/CwdDaNkc7jg8Ccj6CjajOjVPMF/VTOHTEKn7vf8EHRXK+gobAvuub
v/NF/RUBzScl9BpH+KBFzmdAJ45aFin3iPotAuL5Knl1Oj1gSM538O+U2kLN
7T3U/AfSva9HXtr1UPMhyK80nH3bp4eaH2HvfEFMY2IPNV+Cjqrt9433eqj5
E07l1F/++66Hmk/BY+bKzk9EDzW/wqcpu/xYCgJqvgX2xeTKs4sE1PwLT/45
IaFiKKDmYzC9+CKLYSOg5mcozs4bp3FRQM3XkPy2PigkUUDN37Ca+H5mcbmA
ms9hlf15SZlPAmp+B+kj42Nm9wqo+R6kz6sdPju5l5r/QVl6XcrA8l7KH4CD
tO9hD0x7Kf8Anqo/sSpz6KX8BTj2K219Z1gv5T/AX1+P/aaFvZQ/Ac8febzs
ftVL+RegMU3lQVV3L+VvQITG3I3V4/so/wM0y8tcRpf0Uf4IGDKdjh436aP8
E1hif2gu06GP8ldAIlip+L/wPsp/gcJ8PK2muI/yZ2DIbfn+7rd9lH8D+Yq9
Jzb29FH+Djw6t8fo8ZR+yv+BXN1T7adW9VP+EOgdQFobDvRT/hFMv/dEDjz7
KX8Jpjjwj9sk9VP+E/QXfF10q7Kf8qcgq6pMY1ZbP+VfwYLt3ZuLWQOUvwWV
n1fuP64+QPlfcCEqVWeD8QDlj0HBipvpa04PUP4ZbF9l4vlv+ADlr4GBoYpv
UMkA5b9B0LN1F741DFD+HOwqTlq+c3CA8u/gDPvvoU+zBil/Dx703q/03DBI
+X+QY3Np/Kqjg9BG+oNgdu4xXTZwUDQvx0Nw0PQdnPxBGCH9RRhfa5z6u36Q
8h/H8NA8f6BnEJRJfxJMQzKnT58+JJrH46Fq9Z8Io3+GYDnpb4LhdMeKK9ZD
ovk9AVK2yq556z8EO0l/FLw7lhdq5A2J5v0EcK/SLA9+NQTHSX8Vqo4y+nt5
Q5T/CpaHS5knlIfhMunPwodag3Pta4cp/xZsVj/9YW01DEmkvwuBfI+udr9h
kf+QCBFevZOP5w5DCekPw86g+f1//hsW4XEipJnYqTnyhuEV6S9Dy+qSRfyp
IyJ8ToItE3IiHdeOwC/SnwbL0MzursMjIrxOAqfznTWWfiPAJP1t0NDOzXme
MyLC7yRww4tVNP8bgVmkPw7nk7syLnFHRHieDLpN6fUvpozCatJfh+/yPmrS
a0ZF+J4MEW+WquseGoU9pD8PV2fQD+/yHRXhfTKEzJbZfTBrFM6Q/j64Tl9z
ZdeLUcr/h5ed13x0ukfhKZkPgAMOt/WWoSGSD9gQMu2m0z4VGjIl8wXwUxq+
NW8xDZH8wIauV8sOtv5DQ9/IfAJg2a6KCBMaIvmCDfMXv5qywpqGTpH5Buhn
sQueOtEQyR9sKBTsrDP0oyFRPgLXJk28fTeGhkg+YUPwuaZcpWwaukLmKxBQ
4TF46B4NkfySAkWMvD/Xa2loMpnPwJLFWi/KP9MQyTcpMKe7+WvtbxpKJfMd
aHrb7vxkmIZI/kkB5eXZjVnjJKh8CEzU5Q85z5ZAJB+lgGLSBdNFSyWofAnO
eMyUeoYkEMlPKfC4/8Vro10SyJjMp8AKWbBKrCQQyVcpsMmkaIjhKIEayHwL
Nuz8NEHfRwKR/JUKicZrk0wjJJAtmY+BxtUHDJNUCUTyWeoYzrSnLi2WQDwy
X4NTcySbeVXi/A3Oj5ydG1svgS6S+Rz8bol9N7tFApF8lwo9vsZHrhASaByZ
7wGvrWHDq1EJRPJfKuQRxt8F4+hUPgjyARlPhmfSEcmHqZD9V86yTUucL4JP
s+zyrDV0RPJjGhhbvn6+Zas4nwQ/m1P51Wbi/BJ+pU07Pc+OjjaS+SZE+rmn
HHQR55+Q5vqn9YwvHb0m81GI//L+7aFwOiL5NA0YdX9VNJPF+Sp8yWAfr79J
RyS/poEX7aCj6X06lc/C9A4uN7+aTuW3YPWMVdj2jo7cyHwXDu+wcuW10BHJ
v+kQY39W5ctfOpIk82H4UJXvxR6kU/kxuPxR8VsnzUCRZL4MVx8/nleixKDy
ZwgeXbWXOYeBVMl8GkKz1OZrL2ZQ+TU0+zaxl+kzqHwbRuR5XeMMGFT+DTra
bcuemTCofBzWmty5uc+cQeXnwJO6nf7YjkHl66D0a66DrBODyt/h0m+F81re
DCqfh4DWcSs0rjKo/B4anLQ0mVEMKt+HUM2H/feTGFT+D0uULXbszGFQ5wPg
3OXmrqrbDOr8AKjts8ud9JBBnS+AkfTTbgY1DOr8AZgzBAfN3jCo8wnAWlDs
tL2JQZ1fALcDO/rUOhjU+QZg2jxY19bNoM4/wG6IK/HvZ1DnI6B7T2yXIoNJ
nZ+APxdlw/3lmdT5CphrcdK5YzKTOn8Bk/QVA5bPZlLnM8CX9771jDqTOr8B
Zb86qxKXManzHbBzZkEgXs2kzn/ALsfEuoaNTOp8CAx+Md74axsTkXokExJV
PD8K9jDRcc8c23x+JpQarctkHGIiUp9kwcHYmf0TjzGRoDT3tv3sLKjvsDdV
d2AiUq9kgd7Ti/ab3ZnoMi9PQn1rFtQoz13u7MtEpH7JgmC5pk/FwUykuCR/
53fnLMi/fKZWKoaJSD0z9v9d64rOJTNRkv2txNTkLHDdcsdLKoeJSH2TBS82
lB6pKGYircyCrkO1WbCsqKc1voKJSL2TBU9q/sF5z5joXkuh/syeLIihFctz
XzMRqX+y4Vbvey2Xz0xkOLP4SuPsbPh5x79+TQcTkXooG77lFo9s4zDRO7Pb
769vzYbH9Z/lCoeYiNRH2RDvtivjpDQLWUWVzNvjkg1f50x5GajEQqReyoa9
Wkc+T5zDQt2v7jhMZGeP6e/H3graLETqp2yQvJ5U7ruGhbzkSvGr2mx4vd6k
y9uIhUg9lQ1zdgfflzZjIZnNZQohPdlwT2vuQk07FiL1VQ4Yp0l4Ea4sFONz
7+BW1Rx43u9qanOFhUi9lQNbm8J8Q2+w0PyH93OkjHNgln2GllcuC/0U6q8c
wJ1/0lY/YKGC/vLeJy45oFq73PHNaxZyEeqxHDCYHLLV5DsLrdV9YODDzoFn
MpoSlQMsxBDqsxwoG15/abGiJKo9+zASXuTAn1VTH6WrS6JwoV7Lgbs9huXL
1kuivTdxy1BPDmTEHjBrPiCJZgr1Wy6Uyb08UeEiidp/VC65r5oLfTXslPpw
SZQn1HO5cC+00EGzQBI5znvkdc44F1Jkfiq+fymJ9IX6Lhcsy6KPffojiUYt
H79Y4ZoLh+NlRjeMl0LPhHovF/LT7vBVdKRQSNyTaVx2LhjYMnmn9kohU6H+
y4XYr8pzN3hKIZUPT+0KXuTCm/jMWSlpUqhZqAdzoSVInhNRJ4WyFKvvnBTk
ApH0gTW7VwrZmsutLRvIBep81f8BJFW8EQ==
      "]]}}, {{}, {}}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox["\"E [meV]\"", HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"k [1/\\!\\(\\*SubscriptBox[\\(a\\), \\(0\\)]\\)]\"", HoldForm], 
      TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[Large], 
    GrayLevel[0]],
  FrameTicks->{{Automatic, None}, {{{-0.2, 
       FormBox[
        RowBox[{"-", "0.2`"}], TraditionalForm]}, {-0.05, 
       FormBox[
        RowBox[{"-", "0.05`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {0.05, 
       FormBox["0.05`", TraditionalForm]}, {0.2, 
       FormBox["0.2`", TraditionalForm]}}, None}},
  FrameTicksStyle->Directive[FontSize -> 22, 
    GrayLevel[0]],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  LabelStyle->Directive[FontSize -> 22, Bold, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.065215258039882, 0.065215258039882}, {-1.5, 3.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.919803754347313*^9, 3.919804080371449*^9, 
  3.919804189999591*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"22513b99-1b22-459c-8a9a-a77436c4684b"]
}, Open  ]]
},
WindowSize->{971, 598},
WindowMargins->{{Automatic, 116}, {Automatic, 24}},
FrontEndVersion->"13.1 for Mac OS X ARM (64-bit) (June 16, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b84c2fb4-a3ab-4085-bb19-2d8f4612e72e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 11629, 332, 752, "Input",ExpressionUUID->"97f15a13-0481-47a1-b7a9-79a350b2455a"],
Cell[12212, 356, 25476, 447, 392, "Output",ExpressionUUID->"22513b99-1b22-459c-8a9a-a77436c4684b"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

